home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcdisksp.arc / PCDISKSP.MRG < prev    next >
Text File  |  1983-09-20  |  1KB  |  24 lines
  1. Invalid Entry.Press <ENTER> to Receive or <A>bort.17 'PC-TALK merge- causes Alt-V to show disk space left on "logged" disk
  2. 20 CLEAR ,40000!   'May need to adjust lines 20,25,& 3120 for your system.
  3. 25 DEF SEG=&HFC0
  4. 28 DEFINT A-Z
  5. 30 FOR I=&H100 TO &H15B
  6. 32 READ J
  7. 34 POKE I,J
  8. 36 NEXT
  9. 40 DATA 85,139,236,139,118,8,139,20,250,140,200,142
  10. 41 DATA 208,188,0,1,251,180,25,205,33,80,30,180,14
  11. 42 DATA 205,33,180,27,205,33,184,1,0,139,202,43,246
  12. 43 DATA 64,139,248,209,239,3,248,139,57,169,1,0,116
  13. 44 DATA 8,209,239,209,239,209,239,209,239,129,231,255,15
  14. 45 DATA 117,1,70,226,225,31,90,180,14,205,33,250,140,192
  15. 46 DATA 142,208,139,229,251,139,126,6,137,53,93,202,4,0
  16. 47 'Checksum=12074
  17. 822 IF CODE=47 THEN 3100
  18. 3100 A=1:B=0:IF DRIVE$="A:" THEN A=0
  19. 3110 IF DRIVE$="C:" THEN A=2
  20. 3120 DEF SEG=&HFC0:DSK=&H100  'Do not change DSK=&H100!
  21. 3125 CALL DSK(A,B):C!=512*B  'Written by Jack Wright (B=# of free sectors)
  22. 3130 PRINT DRIVE$;" Drive avail. space= ";C!
  23. 00!
  24. 3125 CALL DSK(A,B):C!=512*B  'Written by J